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-- Debugger .Mesa 
-- Edited by: 

Sandman on April 24, 1978 3:27 PM 

Barbara on August 3, 1978 11:06 AM 

DIRECTORY 

ControlDefs: FROM "controldef s" USING [ 

Frame, FrameHandle, GlobalFrameHandle, localbase, NullFrame, 

NullGlobalFrame], 
DebugContextDefs: FROM "debugContextdef s" USING [ 

EnumerateConf iguration, Inval idGlobal Frame, ModuleNameToFrame] , 
DebugData: FROM "debugdata" USING [caseignoring , gContext, IContext], 
DebuggerDefs: FROM "debuggerdef s" USING [ 

CatchFrame, ClobberedFrame, EquivalentVersions , FrameRelBPC, 

GetValue, InitSOP, MainBodyFrame, MainBTI, NoProviousFrame, PcToBTI, 

PreviousFrame, SA, SearchType, SOPointer, SymbolObject , SymFrameHandle, 

VersionStamp], 
DebugMiscDefs: FROM "debugmiscdef s" USING [ControlDEL, LookupFail], 
DebugSymbolDefs: FROM "debugsymboldef s" USING [ 

DAcquireSymbolTable, DReleaseSymbolTable, SymbolsForFrame, 

Symbol sForGFrame , TableForString]. 
DebugUtilityDefs: FROM "debugutil i tydef s" USING [ 

CheckFrame, MREAD, Val idGlobalFrame] , 
StreamOefs: FROM "streamdefs" USING [ControlDELtyped] , 
StringDefs: FROM "stringdefs" USING [ 

AppendSubString, EqualSubStrings , EquivalentSubStrings , Substring, 

Substring Descriptor], 
SymbolTableDefs: FROM "symboUabledefs" USING [ 

NoSymbolTable, SymbolTableBase], 
SymDefs: FROM "symdefs" USING [ 

BTIndex, BTNull , CBTIndex, CSEIndex, CTXIndex. CTXNull , CTXRecord, 

HTIndex, HTNull . includedCTXIndex, ISEIndex, ISENull , IG, MDIndex, 

MDRecord. SEIndex, SENull], 
SystemDefs: FROM "systemdefs" USING [AHocateHeapNode. FreeHeapNode]; 

Debugger: PROGRAM 

IMPORTS DDptr: DebugData, DebugContextDefs, DebuggerDefs, DebugMiscDefs. 

DebugSymbolDefs, DebugUtilityDefs, StreamDefs, StringDefs, SymbolTableDefs, 

SystemDefs 
EXPORTS DebuggerDefs - 
BEGIN 

FrameHandle: TYPE « ControlDefs . FrameHandle; 
GlobalFrameHandle: TYPE =» ControlDefs .Global FrameHandle; 
SymbolTableBase: TYPE = SymbolTableDefs .SymbolTableBase; 
ISEIndex: TYPE = SymDefs . ISEIndex; ^ 
SEIndex: TYPE = SymDefs .SEIndex; 
BTIndex: TYPE » SymDefs . BTIndex; 
SymbolObject: TYPE « DebuggerDefs .SymbolObject; 
SOPointer: TYPE = DebuggerDefs .SOPointer; 

Lookup: PUBLIC PROCEDURE [s: STRING, publiconly: BOOLEAN, sop: SOPointer. 
type: BOOLEAN, search: DebuggerDefs .SearchType] 
RETURNS [found:BOOLEAN] = 
BEGIN 

frame: FrameHandle; 

SearchFrame: PROCEDURE [frame: FrameHandle] RETURNS [BOOLEAN] - 
BEGIN 

RETURN[found ^ SearchFrameForSym[f rame, s, publiconly, sop, type]] 
END; 
SearchGlobalFrame: PROCEDURE [gframe: GlobalFrameHandle] RETURNS [BOOLEAN] « 
BEGIN 
RETURN[round <- IF gTrame = ControlDefs .Nul IGlobal Frame THEN FALSE 

ELSE SearchGFrameForSym[gf rame , s, publiconly, sop, type]]; 
END; 
found <r FALSE; 
SELECT search FROM 
mod «> 

BEGIN OPEN DebugMiscDefs, DebuggerDefs; 
frame ^ DDptr . IContext; 
IF frame ^ NIL THEN 

WHILE frame S ControlDef s.Nul IFrame AND ~SearchFrame[f rame] DO 
IF StreamDefs. ControlDELtyped[] THEN SIGNAL ControlDEL; 
frame ♦- PreviousFrame[f rame I NoPreviousFrame «> EXIT]; 
ENDLOOP 
ELSE found <- SearchGlobal Frame[DDptr .gContext]; 
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END; 

conf ig ■> DebugContextDefs. EnumerateConfigLiration[SearchG1oba1 Frame]; 

ENDCASE -> ERROR; 
RETURN 
END; 

LookupProc: PUBLIC PROCEDURE [proc: STRING] 

RETURNS [found: BOOLEAN, gframe: GlobalFrameHandle, e: CARDINAL] ■ 
BEGIN OPEN DebugSymbolDefs; -- looks up proc at current context 
pdesc: StringDef s .SubStringDescriptor +■ 

[base: proc, offset: 0, length: proc. length] ; 
pss: StringDefs. Substring ^ Opdesc; 
thlp, hip: HashListPtr; 

bti, prev: BTIndex ^ DebuggerDef s .MainBTI ; 
mainhti: SymDef s .HTIndex; 
St base: SymbolTableDefs .Symbol Tab leBase; 
BEGIN OPEN stbase; 
found <- FALSE; 
gframe ^ DDptr.gContext; 

stbase ^ DAcquireSymbolTable[SymbolsForGFrame[gframe 
ISymbolTableDefs.NoSymbolTable »> GOTO nosym] 
ISymbolTableDefs.NoSymbolTable «> GOTO nosym]; 
thlp ^ hip ^ DFindString[stbase, pss]; 
IF hip # NIL THEN 
BEGIN 

IF {bb+bti).firstSon - SymDef s .BTNul 1 THEN RETURN; 
DO 

WITH b:(bb+bti) SELECT FROM 
Callable -> 
BEGIN 

mainhti ^ ( (b. id)+seb) . htptr; 
thlp ♦- hip; 
UNTIL thlp » NIL DO 

IF mainhti « thlp.hti THEN 
BEGIN 
IF bti # DebuggerDefs. MainBTI THEN 

BEGIN found ♦- TRUE; e <- b .entrylndex ; END 
ELSE found ^ FALSE; 
GOTO done; 
END 
ELSE thlp <r thlp. link; 
ENDLOOP; 
END; 
ENDCASE; 
IF {bb+bti).firstSon # SymDef s .BTNul 1 THEN bti ^ (bb+bti) .f irstSon 
ELSE DO 

prev ^ bti; bti *- (bb+bti) . 1 ink. index; 
IF bti = SymDefs.BTNull THEN GOTO done; 
IF (bb+prev). link. which if parent THEN EXIT; 
ENDLOOP; 
REPEAT 

done »> NULL; 
ENDLOOP; 
FreeHashList[hlp] ; 
END; 
DReleaseSymbol Tab le[ stbase] ; 
EXITS 

nosym «> NULL; 
END; 
RETURN 
END; 

LookupProg: PUBLIC PROCEDURE [prog: STRING] 

RETURNS [found: BOOLEAN, gframe: GlobalFrameHandle. stbase: SymbolTableBase] 

BEGIN OPEN DebugSymbolDefs; 

gfdesc: StringDef s .SubStringDescriptor <- 

[base: prog, offset: 0, length: prog . length] ; 

gfss: StringDef s .Substring ♦- 0gfdesc; 

thlp. hip: HashListPtr; 

mainhti: SymDef s .HTIndex; 

BEGIN OPEN stbase; 
found <- FALSE; 
gframe <- DDptr.gContext; 

stbase <- DAcquireSymbolTabl e[Symbol sForGFrame[gf rame 1 
SymbolTableDefs .NoSymbolTable «> GOTO nosym] ! 
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SymboUableDefs.NoSymbolTable ■> GOTO nosym]; 
thip <- hip *- DFinclString[stbase, gfss]; 
IF hip # NIL THEN 
BEGIN 

mainhti ♦- (((bb+DebuggerDef s.MainBTI) . id)+seb) .htptr; 
UNTIL thip =« NIL DO 

IF mainhti - thip.hti THEN 

BEGIN found ^ TRUE; EXIT; END 
ELSE thip <- thip. link; 
ENDLOOP; 
FreeHashList[h1p]; 
END; 
IF -found THEN DReleaseSymbolTableCstbase]; 
EXITS 

nosym ■> NULL; 
END; 
RETURN 
END; 

LookupLocals: PUBLIC PROCEDURE [sop: SOPointer, ss: StringDefs .Substring] 
RETURNS [BOOLEAN] ■ 
BEGIN 

hip: HashListPtr; 
cbti: SymDefs.CBTIndex; 
BEGIN OPEN sop.stbase; 
hip ♦- DFindString[sop.stbase, ss]; 
IF hip j^ NIL THEN 

BEGIN 

cbti ^ (seb+sop. sei) . idinfo; 

IF SearchCtxForSym[(bb+cbti) .localCtx, hip, sop. FALSE, FALSE] 
THEN GOTO foundit; 

IF SearchIOCtx[{seb+sop.sei).idtype, hip, sop, FALSE] THEN GOTO foundit; 

FreeHashList[h1p]; 

END; 
DebugSymbo1Defs.DRe1easeSymbo1Tab1e[ sop.stbase]; 
EXITS 

foundit «> BEGIN FreeHashList[h1p] ; RETURN[TRUE] END; 
END; 

RETURN[FALSE] 
END; 

ClobberedAccessLink: PUBLIC ERROR [f: FrameHandle] = CODE; 

SearchFrameForSym: PUBLIC PROCEDURE [frame: FrameHandle, s: STRING, 
publiconly: BOOLEAN, sop: SOPointer, type: BOOLEAN] 
RETURNS [BOOLEAN] - 

BEGIN -- searches all variables of procedure and program frame 

OPEN DebugSymbolDef s, DebuggerDef s, ControlDefs, SymDefs, DebugUtil ityDef s , sop.stbase; 
desc: StringDef s.SubStringDescriptor ; 
hip: HashListPtr; 
bti: BTIndex; 

gf rame: ControlDefs .Global FrameHandle; 
CatchHandle: TYPE « POINTER TO catch Frame; 

BEGIN 

IF '-CheckFrame[frame] THEN ERROR C1obberedFrame[f rame] ; 
sop.stbase ^ DAcquireSymbolTab1e[Symbo1sForFrame[f rame I 
SymbolTableDefs.NoSymbolTable «> GOTO nosym] 1 
SymboUableDefs.NoSymbolTable => GOTO nosym]; 
IF CatchFrame[frame] THEN frame ^ LOOPHOLE[MREAD[@LOOPHOLE[f rame, 

CatchHandle] . static! ink] - localbase]; 
sop.baddr.wd ♦- short[shortAddr : IF ~MainBodyFrame[ 

SymFrameHandle[faddr: frame, stbase: sop.stbase]] THEN LOOPHOLE[f rame, SA] 
ELSE L00PH0LE[MREAD[®frame.access1ink], SA]]; 
desc *- StringDef s. SubStringDescriptor[base: s, offset: 0, length: s. length]; 
hip <- DFindString[sop . stbase, Qdesc]; 
IF hip ^ NIL THEN 
BEGIN 

bti ♦- PcToBTI[sop. stbase, FrameRe1BPC[f rame]] ; 
DO 

IF SearchCtxForSym[(bb+bti) . localCtx , hip, sop, publiconly, type] 

THEN GOTO foundit; 
WITH b:(bb+bti) SELECT FROM 
Callable «> 
BEGIN 
IF -type AND SearchTOCtx[b . ioType , hip, sop, publiconly] THEN 
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GOTO foundit; 
WITH b SELECT FROM 

Inner -> WITH s:sop.badclr SELECT FROM 

short ■> sop.baddr.wd ^short[shortAddr:LOOPHOLE[MREAD[0LOOPHOLE[ 
s.shortAddr, FrameHandle], static! ink] - localbase]]; 
ENDCASE; 
ENDCASE «> EXIT; 
END; 
ENDCASE; 
UNTIL (bb+bti). link. which - parent DO 
bti ^ (bb+bti) .1 ink. index; 
ENDLOOP; 
bti ^ (bb+bti). link. index; 
IF bti " BTNull THEN EXIT; 
ENDLOOP; 
DRe1easeSymbo1Table[sop.stbase]; 
FreeHashList[h1p]; 
END; 
IF -Val idGlobalFrame[gf rame ^ MREAD[0frame. access! ink]] 

THEN ERROR ClobberedAccessLink[f rame] ; 
IF SearchGFrameForSym[gframe, s, publiconly, sop, type] THEN RETURN[TRUE]; 
EXITS 

nosym «> RETURN[FALSE]; 

foundit -> BEGIN FreeHashList[hlp] ; RETURN[TRUE] END; 
END; 

RETURN[FALSE] 
END; 

SearchlOCtx: PROCEDURE [ioType: SymDef s .SEIndex. hip: HashListPtr, 
sop: SOPointer. publiconly: BOOLEAN] 
RETURNS [BOOLEAN] « 
BEGIN OPEN sop.stbase; 
typein, typeout: SymDef s .SEIndex; 
[typein, typeout] <- TransferTypes[ioType]; 
IF typeout ff SymDef s .SENul 1 AND SearchCtxForSym[ 

FieldContext[sop . stbase, typeout], hip, sop, publiconly, FALSE] THEN 

RETURN[TRUE]; 
IF typein ff SymDef s .SENul 1 AND SearchCtxForSym[ 

FieldContext[sop. stbase, typein], hip, sop, publiconly, FALSE] THEN 

RETURN[TRUE]; 
RETURN[FALSE]; 
END; 

SearchGFrameForSym: PUBLIC PROCEDURE [gframe: GlobalFrameHandle, s: STRING, 
publiconly: BOOLEAN, sop: SOPointer, type: BOOLEAN] 
RETURNS [BOOLEAN] « 
BEGIN OPEN DebugSymbolDefs; 
IF '-DebugUtilityDefs.ValidGlobalFrame[ gframe] 

THEN ERROR DebugContextDef s . Inval idGlobal Frame[gf rame] ; 
sop.stbase ^ DAcquireSymbol Table[SymbolsForGFrame[gf rame 1 
SymbolTableDefs.NoSymbolTable => GOTO nosym] I 

SymbolTableDef s .NoSymbolTable => GOTO nosym]; 
sop.baddr.wd <- short[shortAddr :LOOPHOLE[gf rame, DebuggerDef s .SA]] ; 
RETURN[SearchForGSymis, publiconly, sop, type]] 
EXITS 

nosym => RETURN[FALSE] ; 
END; 

SearchForModuleSym: PUBLIC PROCEDURE [mod: STRING, s: STRING. 

publiconly: BOOLEAN, sop: SOPointer. type: BOOLEAN] RETURNS [BOOLEAN] - 
BEGIN OPEN DebugSymbolDefs; 
gframe: GlobalFrameHandle; 

gframe <- DebugContextDef s .ModuleNameToFrame[mod I 
DebugMiscDef s . LookupFail «> 

BEGIN gframe ♦- ControlDefs .Nul IGlobal Frame; CONTINUE END]; 
IF gframe « ControlDefs .Nul IGlobalFrame THEN 

sop.stbase <- DAcquireSymbol Table[TableForString[mod 1 
SymbolTableDefs.NoSymbolTable => GOTO nosym] I 
SymbolTableDefs.NoSymbolTable «> GOTO nosym] 
ELSE IF ~DebugUtilityDefs.ValidGloba1Frame[gframe] 

THEN ERROR DebugContextDef s . Inval idGlobal Frame[gf rame] 
ELSE sop.stbase ♦- DAcquireSymbolTab ]B[SymbolsForGFrame[gf rame 1 
SymbolTableDefs.NoSymbolTable «> GOTO nosym] 1 
Symbol lableDeFs .NoSymbolTable «> GOfO nosym]; 
sop.baddr.wd ^ shor t[shortAddr :LOOPHOLE[gf rame, DebuggerDef s .SA]]; 
RETURN[SearchForGSym[s , publiconly, sop. type]] 
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EXITS 

nosym -> RETURN[FALSE]; 
END; 

SearchForGSym: PROCEDURE [sym: STRING, publiconly: BOOLEAN, sop: SOPointer, 
type: BOOLEAN] 

RETURNS [BOOLEAN] " -- searches all variables of program frame 
BEGIN OPEN DebuggerDefs,DebugSymbolDefs; 
desc: StringDof s .SubStringDescriptor; 
ss: StringDefs. Substring » 0desc; 
hip: HashListPtr; 

BEGIN OPEN sop.stbase; 

desc ^ StringDefs. SubStringOescriptor[base: sym, offset: 0, 

length: sym. length]; 
hip ^ DFindStringfsop.stbase, ss]; 
IF hip # NIL THEN 
BEGIN 
IF SearchCtxForSym[stHandle.outerCtx, hip, sop, publiconly, type] 

THEN GOTO foundit; 
IF SearchImportCtxForSym[hlp, publiconly, sop, type] THEN GOTO foundit; 
IF -type AND 

SearchIOCtx[(seb+(bb+MainBTI) .id).idtype, hip, sop, publiconly] THEN 
GOTO foundit 
ELSE IF SearchIncludeCtxForSym[hlp , publiconly, sop] OR 

SearchFieldCtxForSym[hlp, publiconly, sop] THEN GOTO foundit; 
IF SearchCtxForSym[stHandle.directoryCtx, hip, sop, publiconly, type] 

THEN GOTO foundit; 
FreeHashList[hlp] ; 
END; 
DRe 1 easeSymbo 1 Tab le[ sop.stbase]; 
EXITS 

foundit -> BEGIN FreeHashList[hlp] ; RETURN[TRUE] END; 
END; 

RETURN[FALSE] 
END; 

SearchlncludeCtxForSym: PROCEDURE [hip: HashListPtr, publiconly: BOOLEAN, sop: SOPointer] RETURNS [BOOL 
♦♦EAN]« 

BEGIN OPEN SymDefs. sop.stbase; 
mdLimit: MDIndex; 
mdi: MDIndex; 
ctx: includedCTXIndex; 

mdLimit ^ LOOPHOLE[stHandle .mdBlock. size] ; 

FOR mdi ^ FIRST[MDIndex] , mdi + SIZE[MDRecord] UNTIL mdi = mdLimit DO 
FOR ctx ♦- (mdb+mdi).mdctx, (ctxb+ctx) .ctxchain UNTIL ctx » CTXNull DO 
IF (ctxb+ctx). ctxlevel - IG THEN EXIT; 
ENDLOOP; 
IF ctx ^ CTXNull AND SearchCtxForSym[ctx , hip, sop, publiconly, TRUE] 

THEN RETURN[TRUE]; 
ENDLOOP; 
RETURN[FALSE] 
END; 

SearchFieldCtxForSym: PROCEDURE [hip: HashListPtr. publiconly: BOOLEAN, sop: SOPointer] RETURNS [BOOLEA 

BEGIN OPEN sop.stbase; 

sei: SymDefs . ISEIndex; 

FOR sei *- FirstCtxSe[stHandle.d irectoryCtx], NextSe[sei] 

UNTIL sei « SymDefs . ISENul 1 DO 

WITH (seb+UnderType[{seb+sei).idtype]) SELECT FROM 
transfer «> IF mode « program THEN 
BEGIN 
IF SearchCtxForSym[FieldContext[sop. stbase, inrecord], hip, sop, 

publiconly, TRUE] THEN RETURN[TRUE] ; 
IF SearchCtxForSym[FieldContext[sop. stbase, outrecord], hip, sop, 

publiconly, TRUE] THEN RETURN[TRUE] ; 
EXIT 
END; 
ENDCASE; 
ENDLOOP; 
RETURN[FALSE] 
END; 

SearchlmportCtxForSym: PROCEDURE [hip: HashListPtr, publiconly: BOOLEAN, sop: SOPointer, type: BOOLEAN] 
** RETURNS [BOOLEAN]- 
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BEGIN OPEN sop.stbase; 

sei: SymDefs. ISEIndex; 

FOR sei ^ FirstCtxSe[stHancne. importCtx], NextSe[sei] 

UNTIL sei « SymDefs. ISENull DO 

WITH (seb+UnderType[(seb+sei).icltype]) SELECT FROM 
definition -> WITH (ctxb+defCtx) SELECT FROM 

imported »> IF SearchCtxForSym[defCtx, hip, sop, publiconly, type] 

THEN RETURN[TRUE]; 
ENDCASE; 
ENDCASE; 
ENDLOOP; 
RETURN[FALSE3 
END; 

SearchForBasicSym: PUBLIC PROCEDURE[s: STRING, sop: SOPointer] 
RETURNS [BOOLEAN] - 

BEGIN OPEN DebugSymbolDefs, SymDefs, sop.stbase; 
desc: StringDefs .SubStringDescriptor; 
ss: StringDefs. Substring » 0desc; 
hip: HashListPtr; 
DebuggerDefs.InitSOP[sop]; 
BEGIN 

sop.stbase <- DAcquireSymbo1Table[Symbo1 sForGFrame[DDptr.gContext 1 
SymbolTableDefs.NoSymbolTable =»> GOTO nosym] I 

SymbolTableDefs.NoSymbolTable »> GOTO nosym] 
EXITS 

nosym «> RETURN[FALSE]; 
END; 

sop.baddr.wd ^ short[shortAddr:LOOPHOLE[DDptr . gContext , DebuggerDef s .SA]]; 
desc *- StringDefs. SubStringDescriptor[base: s, offset: 0, length: s. length]; 
hip ^ DFindString[sop. stbase, ss]; 
IF hip ^ NIL THEN 

IF SearchCtxForSym[FIRST[CTXIndex]+SIZE[nil CTXRecord], hip. sop, FALSE, FALSE] 
THEN BEGIN FreeHashList[hl p] ; RETURN[TRUE] ; END 

ELSE FreeHashList[hlp]; 
DReleaseSymbolTabl e[ sop. stbase]; 
RETURN[FALSE] 
END; 

SymbolTableNotFound: PUBLIC SIGNAL ■ CODE; 

QualifyRecord: PUBLIC PROCEDURE [sop: SOPointer, ss: StringDefs .Substring] 
RETURNS [found: BOOLEAN]- 
BEGIN OPEN sop.stbase; 
vso: SymbolObject; 
vsop: SOPointer ♦- @vso; 

sei, tag: SymDefs. ISEIndex ♦- SymDefs . ISENull ; 
lb: INTEGER *- 0; 

c: SymDefs. CTXIndex <- FindTopContext[sop. stbase, sop.tsei]; 
WITH t: (seb+UnderType[sop.tsei]) SELECT FROM 
record => WITH 1: t SELECT FROM 

linked => IF l.linktype # SymDef s .SENul 1 THEN 
WITH s:(seb+sop.tsei) SELECT FROM 
id «> 

BEGIN sei *- s.idinfo; tag <- (seb+sei ) . idvalue; END; 
ENDCASE; 
ENDCASE; 
ENDCASE; 
sei <- SymDefs. ISENull ; 
DO 

[found, c] ♦- SearchCompleteContext[sop, ss, c, FALSE]; 
IF found THEN RETURN[TRUE] ; 

FOR sei ^ FirstCtxSe[c]. NextSe[sei] UNTIL sei « SymDef s .SENul 1 DO 
WITH {seb+UnderType[(seb+sei).idtype]) SELECT FROM 
union «> 
BEGIN 

--IF -controlled THEN RETURN[FALSE]; check for COMPUTED 
IF tag - SymDefs. ISENull THEN 
BEGIN 

vso <- SymbolObject[sei : tagsei, tsei: (seb+tagsei) . idtype, 
baddr: sop.baddr, stbase: sop.stbase, space: 0, 
there: sop. there]; 
WITH (seb+UnderType[vsop.tsei]) SELECT FROM 
subrange »> lb ♦- origin; 
ENDCASE; 
tag <- LOOPHOLE[D0buggerDefs.GetValue[vsop] + lb]; 
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END; 
c ^ F1nclFielclCtx[sop.stbase, casectx, tag]; 
EXIT; 
END; 
ENDCASE »> NULL; 
REPEAT 

FINISHED -> BEGIN DebugSymbolDef s . DReleasoSymbol Tabl e[sop . stbase] ; 
RETURN[FALSE]; END; 
ENDLOOP; 
IF c - SymDefs.CTXNun THEN EXIT; 
ENDLOOP; 
DebugSymbolDef s .DRe1easeSymbolTable[sop.stbase]; 
RETURN[FALSE] 
END; 

FindFieldCtx: PROCEDURE [stbase: SymbolTableBase, c: SymDef s.CTXIndex, 
tag: SymDef s. ISEIndex] 
RETURNS [SymDefs.CTXIndex] ■ 
BEGIN OPEN stbase; 
sei: SymDefs. ISEIndex; 

FOR sei ^ FirstCtxSe[c]. NextSe[sei] UNTIL sei = SymDefs .SENull DO 
WITH (seb+UnderType[sei]) SELECT FROM 

record •«> IF (seb+sei) .constant AND (seb+sei) . idvalue « tag 

THEN RETURNCfieldctx]; 
ENDCASE -> RETURN[SymDefs.CTXNun]; 
ENDLOOP; 
RETURN[SymDef s . CTXNul 1 ] ; 
END; 

SearchCompleteContext: PROCEDURE [sop: SOPointer, ss: StringDefs. Substring, 
c: SymDefs.CTXIndex, type: BOOLEAN] 
RETURNS[BOOLEAN, SymDefs.CTXIndex] ■ 
BEGIN 

hip: HashListPtr; 
DO 

hip *- DFindString[sop. stbase, ss]; 

IF hip # NIL AND SearchCtxForSym[c, hip. sop, FALSE, type] 

THEN RETURN[TRUE. c]; 
WITH (sop. stbase. ctxb+c) SELECT FROM 

included «> IF -ctxcomplete THEN c ♦- FindNextCtx[c.sop] ELSE EXIT; 
ENDCASE "> EXIT; 
IF c = SymDefs.CTXNun THEN SIGNAL SymboUableNotFound ; 
ENDLOOP; 
RETURN[FALSE. c] 
END; 

FindTopContext: PROCEDURE [stbase: SymbolTableBase, sei: SymDef s.SEIndex] 
RETURNS [SymDefs.CTXIndex] - 
BEGIN 

WITH r: ( stbase. seb+stbase . UnderType[sei]) SELECT FROM 
record »> 

WITH r SELECT FROM 

linked ■> RETURN[FindTopContext[stbase, 1 inktype]]; 
ENDCASE «> RETURN[fie1dctx]; 
ENDCASE =•> ERROR; 
RETURN[SymDefs.CTXNun] 
END; 

VariantRecord: PUBLIC PROCEDURE [sop: SOPointer, ss: StringDefs .Substring] 
RETURNS [found: BOOLEAN]- 
BEGIN OPEN sop. stbase; 
sei: SymDef s . ISEIndex: 
c: SymDefs.CTXIndex; 

WITH (seb+UnderType[sop.tsei]) SELECT FROM 
record «> c ♦- fieldctx; 
ENDCASE «> RETURN[FALSE]; 
DO 

FOR sei <- FirstCtxSe[c], NextSe[sei] UNTIL sei » SymDef s . ISENul 1 DO 
WITH (seb+UnderType[(seb+sei).idtype]) SELECT FROM 
union -> BEGIN c *- casectx; GOTO found END; 
ENDCASE; 
REPEAT 

FINISHED «> WITH ( sop . stbase . ctxb+c) SELECT FROM 

included »> c <- IF -ctxcomplete THEN FindNextCtx[c, sop] 
ELSE SymDefs.CTXNun; 
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ENDCASE -> GOTO notfound; 
ENDLOOP; 
IF c - SymDefs.CTXNun THEN GOTO notfound; 
REPEAT 

found -> NULL; 

notfound »> SIGNAL SymbolTableNotFound ; 
ENDLOOP; 
[found, ] <- SearchComp1eteContext[sop, ss, c, TRUE]; 
RETURN[found] 
END; 

FindNextCtx: PROCEDURE [c: SymDef s .CTXIndex, sop: SOPointer] 
RETURNS [newctx: SymDef s. CTXIndex]- 

BEGIN OPEN DebuggerDefs, DebugSymbolDef s , StringDefs, sop.stbase; 
filename: STRING ♦- [40]; 
desc: SubStringDescriptor; 
filess: Substring <- Qdesc; 
includedVersion: DebuggerDefs .Versions tamp; 

WITH (ctxb+c) SELECT FROM 
included »> 
BEGIN 

SubStringForHash[f iless, (mdb+ctxmodule) .mdhti]; 
AppendSubString[fi lename, filess] ; 
newctx <- ctxmap; 

includedVersion <- (mdb+ctxmodule) .mdStamp; 
DReleaseSymbolTable[sop. stbase] ; 

sop.stbase ^ DAcquireSymbolTable[TableForString[f ilename I 
SymbolTableDefs.NoSymbolTable => GOTO continue] I 
SymbolTableDefs.NoSymbolTable => GOTO continue]; 
IF '-EquivalentVersions[sop . stbase. stHandle .version, includedVersion] 

THEN BEGIN DReleaseSymbolTabl e[sop . stbase] ; GOTO continue; END; 
RETURN 
EXITS 

continue => RETURN[SymDef s .CTXNull]; 
END; 
ENDCASE »> ERROR; 
END; 

SearchCtxForSym: PROCEDURE [c: SymDef s .CTXIndex, ihlp: HashListPtr, 

sop: SOPointer, publiconly: BOOLEAN, type: BOOLEAN] RETURNS [BOOLEAN] » 

BEGIN OPEN sop.stbase; 

sei: ISEIndex; 

hip: HashListPtr; 

testtype: PROCEDURE [sei: ISEIndex] RETURNS [BOOLEAN] » 

BEGIN OPEN sop.stbase; 

RETURN[TypeForm[(seb+sei) .idtype] ■ mode] 

END; 

FOR sei <- FirstCtxSe[c], NextSe[sei] UNTIL sei « SymDef s . ISENul 1 DO 
FOR hip ♦- ihlp. hip. link UNTIL hip « NIL DO 

IF hlp.hti = (seb+sei) .htptr AND (^publiconly OR (seb+sei) . publ ic) 
AND (-type OR (type AND testtype[sei]) ) THEN 
BEGIN 
sop. sei <- sei; sop.tsei ♦- (seb+sei) . idtype; 
RETURN[TRUE] 
END; 
ENDLOOP; 
ENDLOOP; 
RETURN[FALSE] 
END; 

HashListltem: TYPE - RECORD[ 
link: HashListPtr, 
hti: SymDefs.HTIndex]; 

HashListPtr: TYPE « POINTER TO HashListltem; 

FreeHashList: PROCEDURE[hlp : HashListPtr]" 
BEGIN 

nexthlp: HashListPtr; 
UNTIL hip - NIL DO 

nexthlp ♦- hip. link; 

SystemDef s. FroeHeapNode[hlp]; 

hip <- nexthlp; 

ENDLOOP; 
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RETURN 
END; 

DFindString: PROCEDURE [stb: SymbolTableBase, s: StringDefs. Substring] 
RETURNS [hip: HashListPtr]- 
BEGIN OPEN stb, SymDefs, StringDefs; 
desc: SubStringDescriptor; 
ss: Substring ■ ©desc; 
found: BOOLEAN; 
thip: HashListPtr; 
hti: HTIndex ^ hashVec[HashVa1ue[s]]; 

hip <r NIL; 

WHILE hti ff HTNun DO 

SubStringForHash[ss, hti]; 

found ^ IF DDptr.caseignoring THEN Equiva1entSubStrings[s ,ss] 

ELSE EqualSubStrings[s,ss]; 
IF found THEN 
BEGIN 

thlp ^ SystemDefs.AnocateHeapNode[SIZE[HashListItem]]; 
thlpt 4- [link: hip, hti: hti]; 
hip ^ thlp; 
END; 
hti <- ht[hti].link; 
ENDLOOP; 
RETURN 
END; 

FieldContext: PUBLIC PROCEDURE [stbase: SymbolTableBase, type: SymDefs. SEIndex] 
RETURNS [SymDefs. CTXIndex] » 
BEGIN OPEN SymDefs, stbase; 
sei: CSEIndex; 

IF type = SENull THEN RETURN [CTXNull]; 
sei <- UnderType[type]; 

RETURN [WITH (seb+sei) SELECT FROM record ■> fieldctx, ENDCASE «> CTXNull] 
END; 

END ... 



